home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 09 Application Software / GC1.SDA / GRT-CIR TO SEQ (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  682 b   |  35 lines
  1. 10 REM THIS PROGRAM CONVERTS
  2. 20 REM "GREAT.CIRCLE.ARC" RELATIVE FILES
  3. 30 REM INTO SEQUENTIAL FILES SO THAT
  4. 40 REM THEY CAN BE COMBINED INTO AN SDA
  5. 45 :
  6. 50 RT$=CHR$(13)
  7. 60 INPUT"  INPUT DRIVE";ID
  8. 70 INPUT" OUTPUT DRIVE";OD
  9. 80 OPEN15,ID,15
  10. 85 PRINT"[147]"
  11. 90 FORI=65TO90
  12. 95 PRINT"WORKING ON FILE: "CHR$(I)"[144]"
  13. 100 OPEN2,ID,2,CHR$(I)+",R,R"
  14. 110 OPEN3,OD,3,CHR$(I)+".SEQ,S,W"
  15. 120 INPUT#2,MN
  16. 130 PRINT#3,MN
  17. 140 FORRN=2TOMN
  18. 150 GOSUB270:GOSUB2920
  19. 160 INPUT#2,PL$,LA$,LO$
  20. 170 PRINT#3,PL$:PRINT#3,LA$:PRINT#3,LO$
  21. 180 NEXT
  22. 190 CLOSE2:CLOSE3
  23. 200 NEXT
  24. 210 END
  25. 240 :
  26. 260 REM POSITION SUB FOR RELATIVE FILES
  27. 270 RH=INT(RN/256):RL=RN-(256*RH)
  28. 280 PRINT#15,"P"+CHR$(96+2)+CHR$(RL)+CHR$(RH)+CHR$(1)
  29. 290 : INPUT#15,E,E$,AA,B
  30. 300 IF E=0ORE=50THENRETURN
  31. 310 PRINT"DISK ERROR" E;E$;AA;B
  32. 320 CLOSE8:CLOSE15:END
  33. 2920 IFPEEK(52)<PEEK(50)+3THENYX=FRE(0)
  34. 2930 RETURN
  35.